
; =================================================
; necessary forward declarations
(forwards
  (mark asm-function)
  
  (type Register)
  (type byte)

  (func code-of (Register))

  (func emit (byte))
  (func emit-operand ((byte) Register))
  (func emit-imul ((byte bytecode) (Register operand) (Register dividend)))
  )

; =================================================
; sample function
(func push ((const Register r))
      (mark asm-function
            (emit (bit-or #16r0050 (code-of r)))))



